-- card: 28475 from stack: in.2
-- bmap block id: 29285
-- flags: 4000
-- background id: 2433
-- name: Title Card
----- HyperTalk script -----
on openCard
  global headerCard
  put id of this card into headerCard
end openCard



-- part 1 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=239 top=307 right=341 bottom=272
-- title width / last selected line: 0
-- icon id / first selected line: 2507 / 2507
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: First Help
----- HyperTalk script -----
on mouseUp
  go to card "Help Card"
end mouseUp



-- part 4 (field)
-- low flags: 80
-- high flags: 0000
-- rect: left=319 top=224 right=241 bottom=379
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Date for Update
----- HyperTalk script -----
on closeField
  global dateforUpdate
  put card field "Date for Update" into dateforUpdate
end closeField


-- part 5 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=90 top=234 right=282 bottom=131
-- title width / last selected line: 0
-- icon id / first selected line: 12074 / 12074
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Plot All
----- HyperTalk script -----
on mouseUp
  global headerCard
  repeat with i=1 to number of cards
    go card i
    get the short name of background
    if (it="Stock Chart") or (it="Advance-Decline Chart") then
      send mouseUp to background button "Plot" of card i
    end if
  end repeat
  go headerCard
end mouseUp



-- part 6 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=44 top=190 right=223 bottom=176
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Update All
----- HyperTalk script -----
on mouseUp
  global cardNr,headerCard,updateFlag,dateforupdate
  ask "Date of Update"
  if it is not empty then
    put it into dateforupdate
    put it into card field "Date for Update"
    set cursor to 4
    put 1 into cardNr
    put false into cardFound
    set lockscreen to true
    repeat until cardFound or (cardNr>the number of cards)
      go card cardnr
      get the short name of background
      if (it="Stock Chart") or (it="Advance-Decline Chart") then
        QuickUpdate
        put true into cardFound
      else
        add 1 to cardNr
      end if
    end repeat
    set lockscreen to false
    if cardFound then
      put "openCard" into updateFlag
      send tabKey to card "Update All"
      put "OK" into updateFlag
    end if
  end if -- it is not empty
end mouseUp



-- part 7 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=345 top=190 right=212 bottom=455
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Find by Symbol
----- HyperTalk script -----
on mouseUp
  Ask "What is the Symbol for the Stock or Indicator"
  put it into SearchName
  findString searchName,"Stock Symbol"
end mouseUp



-- part 8 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=345 top=225 right=247 bottom=455
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Find by Name
----- HyperTalk script -----
on mouseUp
  Ask "What is the Name of the Stock or Indicator"
  put it into SearchName
  findString searchName,"Stock Name"
end mouseUp


-- part 9 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=345 top=260 right=282 bottom=455
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Find
----- HyperTalk script -----
on mouseUp
  ask "Find what?"
  put it into searchName
  if it is not empty then
    set cursor to 4
    set lockScreen to true
    find searchName
    if short name of this card is "Title card" then
      answer searchName&&"not found"
    end if
    set lockScreen to false
  end if
end mouseUp



-- part 10 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=205 top=225 right=247 bottom=305
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Add New Item
----- HyperTalk script -----
on mouseUp
  answer "Type of item" with "Indicator" or "Adv-Dec Line" or "Stock"
  put it into itemType
  ask "Symbol of "&itemType
  put it into ItemSymbol
  ask "Name of "&itemType
  put it into ItemName
  if it is empty then
    exit mouseUp
  end if
  if itemType="Adv-Dec Line" then
    go card id 37418 -- Blank Advance-Decline Chart
  else
    go card id 36791 -- Blank Stock Chart Card
  end if
  domenu "Copy Card"
  Ask "Place after:"
  if it is empty then
    go card id 37418
  else
    find it
  end if
  domenu "Paste Card"
  put ItemSymbol into field "Stock Symbol"
  put itemName into field "Stock Name"
  send newCard
  go card "Title Card"
end mouseUp



-- part contents for card part 4
----- text -----
880318